From: Jim Blandy <jimb@redhat.com>
Date: Mon, 24 May 1993 15:22:47 +0000 (+0000)
Subject: * fileio.c (Ffile_writable_p): Pass XSTRING (foo)->data to
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96043
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e7c7295c919d939c9b21adeecff89336318c6578;p=emacs.git

* fileio.c (Ffile_writable_p): Pass XSTRING (foo)->data to
	ro_fsys, not XSTRING (foo).
---

diff --git a/src/fileio.c b/src/fileio.c
index 8987142e2ce..da591b525b1 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2112,7 +2112,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0,
 
   if (access (XSTRING (abspath)->data, 0) >= 0)
     return ((access (XSTRING (abspath)->data, 2) >= 0
-	     && ! ro_fsys (XSTRING (abspath)))
+	     && ! ro_fsys ((char *) XSTRING (abspath)->data))
 	    ? Qt : Qnil);
   dir = Ffile_name_directory (abspath);
 #ifdef VMS
@@ -2120,7 +2120,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0,
     dir = Fdirectory_file_name (dir);
 #endif /* VMS */
   return ((access (!NILP (dir) ? (char *) XSTRING (dir)->data : "", 2) >= 0
-	   && ! ro_fsys ((char *) XSTRING (dir)))
+	   && ! ro_fsys ((char *) XSTRING (dir)->data))
 	  ? Qt : Qnil);
 }